The Ultimate Human Body 2.0/Ultimate Human Body 2.0, The (1996)(Dorling Kindersley).iso/dksetup/dkgen.inc

Text File | 1996-09-24 | 38KB | 962 lines

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'
'   DKGEN.INC
'
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
' See the change history in DKSETUP.MST for more recent changes.
'
'25/06/96 Added the extra ini settinigs into the InstallQTW function.
'27/02/96 Added the InstallQTW function.
'25/01/96 Change the EndCommonInstall and HandleRestart SUB's to Functions to
'         utilise return values. So the user does NOT get the 'You must restart
'         windows' warning AND THEN the 'Successful install' dialog box.
'25/01/96 Change path checking to look for Max of 8 chars first.
'08/08/95 Test for Norton Anti Virus
'03/08/95 const for uninstall and min register added
'07/07/95 Correct so unregisters use of ctl3d
'01/06/95 No choice about adding icons to progman
'?/05/95  If bundle with sampler need to test for cirrus driver - put into mst file
'12/03/95 Alternative function added, readme icon has shortened name

'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
'$INCLUDE 'dklang.inc'

'   Defines unlikely to change
CONST APPLICATION_MENU_FILE     = "custmenu.exe"
CONST INI_FILE_SOURCE = "AppPath" ' OR  "WinPath"
CONST EDITOR_EXE        = "write.exe "
CONST SAMPLER_PATH      = "SAMPLER"
CONST SAMPLER_EXE_FILE  = "sampler.exe"
CONST SAMPLER_INI_FILE  = "sampler.ini"
CONST SAMPLER_BINARIES_SECTION_NAME = "SAMPBIN"
CONST SAMPLER_README_FILE = "SREADME.WRI"

CONST SOURCE_BINARIES_SUBDIR = "DKCODE"
CONST SOURCE_SETUP_SUBDIR = "DKSETUP"
CONST SETUP_INF_FILENAME = "SETUP.INF"
CONST CUIDLL_FILENAME = "mscuistf.dll"
CONST SETUP_INI_BINARIES_SECTION_NAME = "BIN"
CONST SETUP_INI_SH_BINARIES_SECTION_NAME = "BIN Shared"
CONST SETUP_INI_WING_BINARIES_NAME = "WinG Runtime"
CONST SETUP_INI_WING32_BINARIES_NAME = "WinG32"
CONST SETUP_INI_ACM_SECTION_NAME = "ACM Drivers"
CONST SETUP_INI_FONTS_SECTION_NAME = "Fonts"

'unin, min register
CONST UNINSTALL_EXE_FILE = "UNINSTAL.exe"
CONST DKREG_INI_DIR = "\MMAPP"
CONST DKREG_INI_PATH = "\MMAPP\MMAPP.ini"
CONST WIN_INI_ENTRY = "path"

CONST PRODUCT_INI_DIR_SECTION_NAME = "Directory"
CONST PRODUCT_INI_DIR_ENTRY_NAME = "Data"

CONST MINIMUM_DISK_SPACE = 2048 ' For Minimum install

' Procs
CONST PROC_HELP = "FHelpDlgProc"

DECLARE FUNCTION ExitWindowsExec LIB "USER.EXE" (szEXE$, szParams$) AS INTEGER
DECLARE FUNCTION GetActiveWindow    lib "User" () as integer
DECLARE FUNCTION GetParent    lib "User" (hwnd as integer) as integer
DECLARE FUNCTION IsWindow    lib "User" (hwnd as integer) as integer
DECLARE FUNCTION ShowWindow    lib "User" (hwnd as integer,style as integer) as integer
DECLARE FUNCTION SetWindowPos       lib "User" (hwnd as integer, hwnd as integer, i as integer, i as integer, i as integer, i as integer, w as integer) as integer
DECLARE FUNCTION SetActiveWindow       lib "User" (hwnd as integer) as integer

DECLARE FUNCTION Ctl3dRegister LIB "CTL3D.DLL" (hInst%) AS INTEGER
DECLARE FUNCTION Ctl3dUnregister LIB "CTL3D.DLL" (hInst%) AS INTEGER
DECLARE FUNCTION Ctl3dAutoSubClass LIB "CTL3D.DLL" (hInst%) AS INTEGER

DECLARE FUNCTION OnWin3x LIB "setuphlp.DLL" AS INTEGER
DECLARE FUNCTION VflatdPresent LIB "setuphlp.DLL" AS INTEGER
DECLARE FUNCTION GetRealSystemDir LIB "setuphlp.DLL" (szDir$,cbBuf%) AS INTEGER
DECLARE FUNCTION RestartWindows LIB "setuphlp.DLL" AS INTEGER
DECLARE FUNCTION IsWin32FileNewer LIB "setuphlp.DLL" (szOrig$,szNew$) AS INTEGER
DECLARE SUB RenameFilePlease LIB "setuphlp.DLL" (szOrig$,szNew$)

DECLARE FUNCTION FIsVGA LIB "mscuistf.dll" AS INTEGER
DECLARE FUNCTION FIs256Colour LIB "colors.dll" AS INTEGER
DECLARE FUNCTION Welcome() AS INTEGER
DECLARE FUNCTION TestSystem() AS INTEGER
DECLARE FUNCTION GetDiskSpaceNeeded(drive%) AS LONG
DECLARE SUB Initialise(prodName$, defInstallPath$, msgCaption$)
DECLARE SUB DeInitialise()
DECLARE SUB AskQuit()
DECLARE SUB BadPath()
DECLARE SUB NetworkDrive()
DECLARE SUB UpdateIndeoAVIDrivers()
DECLARE SUB UpdateWinGDrivers()
'DECLARE SUB UpdateProgramManager(prodName$, appExeFile$, appPengeFile$, readmeFile$, readmeStr$, onCDROM%)
'DECLARE SUB UpdateProgramManagerAlt(prodName$, readmeName$, appExeFile$, appPengeFile$, readmeFile$, readmeStr$, onCDROM%)
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
DECLARE FUNCTION GetRealWindowsSysDir AS STRING
DECLARE SUB UpdateWinG32 (szOrig$)
DECLARE SUB InitCommonInstall()
DECLARE FUNCTION LicenseAgreement() AS INTEGER
DECLARE FUNCTION Win32sRequiredDLG() AS INTEGER
DECLARE FUNCTION UpdateADPCMDrivers() AS INTEGER
DECLARE FUNCTION EndCommonInstall( AppReadmeFile$, InRoot%, szEditorExe$ ) AS INTEGER
DECLARE FUNCTION HandleRestart() AS INTEGER
DECLARE FUNCTION InstallQTW() As Integer
DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER

'  SetWindowPos() flags
const SWP_NOSIZE         = &H0001
const SWP_NOMOVE         = &H0002
const SWP_NOACTIVATE     = &H0010
const SWP_SHOWWINDOW     = &H0040
const SWP_HIDEWINDOW     = &H0080
const HWND_TOP       = (0)
const HWND_BOTTOM    = (1)
const HWND_TOPMOST   = (-1)
const HWND_NOTOPMOST = (-2)


'Dialog Box ID's
CONST DLG_ABORT                       =100
CONST DLG_ADDSYSTEMSOFT               =101
CONST DLG_ADPCMHELP                   =102
CONST DLG_AWFULMACHINE                =103
CONST DLG_BADEXIT                     =110
CONST DLG_BADVGA                      =111
CONST DLG_BADPATH                     =112
CONST DLG_BILLBOARD                   =113
CONST DLG_CUSTOM                      =120
CONST DLG_CUSTOMHELP                  =121
CONST DLG_DESTPATH                    =130
CONST DLG_DEVELOPER                     =133
CONST DLG_DONEVIDEO                   =131
CONST DLG_DONENOVIDEO                 =132
CONST DLG_EXITFAILNOTENH              =140
CONST DLG_EXITFAILNOTINTEL            =141
CONST DLG_EXITFAILNOTWIN31            =142
CONST DLG_EXITFAILRUNAPP              =143
CONST DLG_FREECELLINST                =150
CONST DLG_INSTALLQTW                  =180
CONST DLG_LICENSE                     =210
CONST DLG_MAILMAN                     =220
CONST DLG_NOSPACE                     =230
CONST DLG_NEEDS31                     =231
CONST DLG_NOMOUSE                     =232
CONST DLG_NOT256                      =233
CONST DLG_NOSYSSOFT                   =234
CONST DLG_NODISKSPACE                 =235
CONST DLG_NEEDSWIN32S                 =236
CONST DLG_NETWORKDRIVE                =237
CONST DLG_PATHHELP                    =240
CONST DLG_POORMACHINE                 =241
CONST DLG_PROGMANGROUP                =242
CONST DLG_PROGMANGRP                  =243
CONST DLG_QUIT                        =250
CONST DLG_SPEED                       =270
CONST DLG_SUCCESS                     =271
CONST DLG_URKADPCM                    =290
CONST DLG_WELCOME                     =310
CONST DLG_WELHELP                     =311
CONST DLG_WRONGADPCM                  =312
CONST DLG_WHIZZHELP                   =313
'Bitmap ID
CONST IDB_BITMAP                      =1000

' Error messages
CONST ERR_OK = 100
CONST ERR_EXITFAIL = 101
CONST ERR_WINVERFAIL = 102
CONST ERR_NODISKSPACE = 103

' Navigation messages
CONST NAV_FORWARD = 0
CONST NAV_BACK = 1
CONST NAV_EXIT = 2
CONST NAV_RUN = 3


GLOBAL szDirectCommand As String
GLOBAL szWinPath As String
GLOBAL szWinSysPath As String
GLOBAL szWinDrive As String
GLOBAL szSrcSetupPath As String
GLOBAL szSrcBinPath As String
GLOBAL szDestPath As String
GLOBAL szOldDestPath As String
GLOBAL szPengePath As String
GLOBAL szINFPath As String
GLOBAL szAppINIPath As String
GLOBAL szMsgCaption As String
GLOBAL szButton As String
GLOBAL szMinimalInstall As String
GLOBAL szAddPMItem As String
GLOBAL szExpressCustomChoice As String
GLOBAL szMMappPath As String
GLOBAL szInstExePath As String
GLOBAL szInstExeDate As String
GLOBAL szCdExePath As String
GLOBAL szCdExeDate As String
GLOBAL szCopyright As String
GLOBAL szFullSampPath As String
GLOBAL szSampINIPath As String
GLOBAL szSampData As String
GLOBAL szSampVersion As String
GLOBAL szMsacmPriority1 As String
GLOBAL szMsacmPriority2 As String
GLOBAL szMsacmPriority3 As String
GLOBAL bInstalledWin32s As Integer
GLOBAL APPLICATION_INI_FILE As String
GLOBAL APPLICATION_EXE_FILE As String
GLOBAL APPLICATION_PENGE_FILE As String
GLOBAL szDKRegIni As String ' MMAPP.INI

GLOBAL fPreviousMode As Integer
GLOBAL fWillNotFit As Integer
GLOBAL fSystemUpdated As Integer
GLOBAL hDlg As Integer
GLOBAL dButton As Integer
GLOBAL dWinDrive As Integer
GLOBAL dDestDrive As Integer
GLOBAL dCursor As Integer
GLOBAL hwndSetup As Integer
GLOBAL hwndApple As Integer
GLOBAL OS_Windows95 As Integer
GLOBAL bscrunged As Integer
GLOBAL szErrorCode As String
GLOBAL szReply As String

GLOBAL WinVer As Integer
GLOBAL Ver As String
GLOBAL szSystem32Path As String

GLOBAL  numcolours As Integer
GLOBAL strnumcol As String
GLOBAL btest As Integer
GLOBAL i As Integer

' This file needs the above globals etc for it's functions
'$INCLUDE 'product.inc' 'Defines which change for every product

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub InitCommonInstall() STATIC
'    AddToBillboardList CUIDLL_FILENAME, DLG_MAILMAN, "MailmanDlgProc", 2500
    AddToBillboardList "colors.dll", DLG_MAILMAN, "MailmanDlgProc", 25
    numcolours=FIs256Colour()
strnumcol=STR$(numcolours)
'dButton = DoMsgBox( strnumcol, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONHAND)
    if numcolours<16 then  ' The 16 referes to the Bits per pixel and not 16 colours. That would be 8
'        AddToBillboardList "Colors.dll", DLG_MAILMAN, "ColoursDlgProc", 25
        AddToBillboardList "colors.dll", DLG_MAILMAN, "ColorsDlgProc", 25
   endif
    SetCopyGaugePosition -1, 150
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function EndCommonInstall( AppReadmeFile$, InRoot%, szEditorExe$ ) STATIC AS INTEGER

    if RestartListEmpty = 0 or fSystemUpdated = 1 or bInstalledWin32s = 1 then
        hDlg = DLG_DONEVIDEO
    else
        hDlg = DLG_DONENOVIDEO
    end if

QuitLoop:
    szButton = UIStartDlg(CUIDLL_FILENAME, hDlg, "FInfoDlgProc", 0, "")
    select case szButton
    case "REACTIVATE"
        goto QuitLoop
    case "CONTINUE"     'Read me
        if inRoot% = 1 then
            szReadMe$ = MakePath( mid$(szSrcSetupPath, 1, (len(szSrcSetupPath) - len(SOURCE_SETUP_SUBDIR))-1), appReadmeFile$)
        else
            szReadMe$ = MakePath(szSrcBinPath, appReadmeFile$)
        end if
        if szEditorExe$ = "write.exe " then
            run szEditorExe$ + szReadMe$, nowait
        else
            run szEditorExe$ + szReadMe$
        end if
        goto QuitLoop
    case "BACK"     'Restart Windows
        if HandleRestart = 0 then
            dButton = DoMsgBox( STR_SYSMESSAGE, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONHAND)
            EndCommonInstall = NAV_EXIT
        else
            EndCommonInstall = NAV_FORWARD
        end if
    case "EXIT" , "CANCEL"         'Return to Windows
        if hDlg = DLG_DONEVIDEO then
            dButton = DoMsgBox( STR_SYSMESSAGE, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONHAND)
            EndCommonInstall = NAV_EXIT
        else
            EndCommonInstall = NAV_FORWARD
        end if
    end select

    UIPop 1
End Function


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Initialise(prodName$, defInstallPath$, msgCaption$) STATIC
    ret% = Ctl3dRegister(HinstFrame())
    ret% = Ctl3dAutoSubClass(HinstFrame())

    szMsgCaption$ = msgCaption$

    cursor% = ShowWaitCursor()

    ClearCopyList
    szWinSysPath = ucase$(GetWindowsSysDir ())
    szWinPath = ucase$(GetWindowsDir ())
    dWinDrive = asc(mid$((szWinPath), 1,1)) - asc("A")+1
    szWinDrive = mid$(szWinPath, 1,1)

    szSrcSetupPath = ucase$(GetSymbolValue ("STF_SRCDIR"))
    szSrcBinPath = mid$(szSrcSetupPath, 1, (len(szSrcSetupPath) - len(SOURCE_SETUP_SUBDIR))-1) + SOURCE_BINARIES_SUBDIR
    szDestPath = szWinDrive + ":" + defInstallPath$

'+++
'$IFDEF WITH_FULL_SAMPLER
    szFullSampPath = szWinDrive + ":" + "\DKMM\" + SAMPLER_PATH
'$ENDIF
'---

    SetTitle szMsgCaption$
    SetBitmap CUIDLL_FILENAME, IDB_BITMAP
    szCopyright = STR_COPYRIGHT + "     Setup " + STR_VERSION
    SetAbout prodName$, szCopyright

    fPreviousMode = SetBeepingMode (1)
    fPreviousMode = SetDecompMode (1)
    fPreviousMode = SetSilentMode (0)

    szINFPath = ucase$(GetSymbolValue("STF_SRCINFPATH"))
    if szINFPath = "" then
        szINFPath = ucase$(GetSymbolValue("STF_CWDDIR")) + SETUP_INF_FILENAME
    end if
    ReadInfFile szINFPath

    szExpressCustomChoice = "EXPRESS"
    szMinimalInstall = "OFF"
'    szAddPMItem = "ON"

    fSystemUpdated = 0
    bInstalledWin32s = 0

    ' Set up Application file names
    APPLICATION_INI_FILE = APP_SHORTNAME + ".INI"
    APPLICATION_EXE_FILE = APP_SHORTNAME + ".EXE"
    APPLICATION_PENGE_FILE = APP_SHORTNAME + ".PNG"

    RestoreCursor(cursor%)
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub DeInitialise() STATIC
    ret% = Ctl3dUnregister(HinstFrame())
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub AskQuit() STATIC
begin:
    szButton = UIStartDlg(CUIDLL_FILENAME, DLG_QUIT, "FQuitDlgProc", 0, "")
    select case szButton
    case "REACTIVATE"
        goto begin
    case "EXIT" , "CANCEL"
        error STFQUIT
    case "CONTINUE"
        UIPop 1
    end select
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub BadPath() STATIC
begin:
    szButton = UIStartDlg(CUIDLL_FILENAME, DLG_BADPATH, "FInfo0DlgProc", 0, "")
    select case szButton
    case "REACTIVATE"
        goto begin
    end select
    UIPop 1
End Sub



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub NetworkDrive() STATIC
begin:
    szButton = UIStartDlg(CUIDLL_FILENAME, DLG_NETWORKDRIVE, "FInfo0DlgProc", 0, "")
    select case szButton
    case "REACTIVATE"
        goto begin
    end select
    UIPop 1
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function LicenseAgreement() STATIC As Integer
begin:
    szButton = UIStartDlg( CUIDLL_FILENAME, DLG_LICENSE, "FInfoDlgProc", 0, "" )
    select case szButton
    case "CONTINUE"
        UIPop 1
        LicenseAgreement = NAV_FORWARD
    case "EXIT" , "CANCEL"
        LicenseAgreement = NAV_EXIT
    end select
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Welcome() STATIC As Integer
begin:
    szButton = UIStartDlg(CUIDLL_FILENAME, DLG_WELCOME, "FInfoDlgProc", DLG_WELHELP, PROC_HELP)
    select case szButton
    case "REACTIVATE"
        goto begin
    case "CONTINUE"
        UIPop 1
        Welcome = NAV_FORWARD
    case "EXIT" , "CANCEL"
        AskQuit
        goto begin
    end select
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function TestSystem() STATIC As Integer

TestNortonAntiVirus:
    szWinString$ = GetIniKeyString( "win.ini", "windows", "load")
    ret% = instr( szWinString,"NAV\navtsrw.exe" )
    if ret% <> 0  then
        dButton = DoMsgBox(STR_NAV, szMsgCaption$, MB_OK)
    endif

TestWinVer:
    if GetWindowsMajorVersion() < 3 or (GetWindowsMajorVersion() = 3 and GetWindowsMinorVersion() < 10) then
        TestWinVerDlgLoop:
            szButton = UIStartDlg (CUIDLL_FILENAME, DLG_NEED31, "FInfoDlgProc", DLG_AWFULMACHINE, PROC_HELP)
            select case szButton
            case "EXIT" , "CANCEL"
                goto TestWinVerDlgLoop
            end select
    end if

    ' Check for Win 95
    OS_Windows95 = 0

    WinVer=GetWindowsMajorVersion * 100 + GetWindowsMinorVersion
    Ver$=str$(WinVer)
'        dButton = DoMsgBox(ver$, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
    if ((GetWindowsMajorVersion * 100 + GetWindowsMinorVersion) > 350) THEN
        OS_Windows95 = 1
'****************************************************************************************************************************************
'****************************************************************************************************************************************
'For debugging...
'        dButton = DoMsgBox("This is windows 95", szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
'****************************************************************************************************************************************
'****************************************************************************************************************************************
    endif

     IF OnWindowsNT () THEN
        if ((GetWindowsMajorVersion * 100 + GetWindowsMinorVersion) > 309) THEN
            OS_Windows95 = 1
'****************************************************************************************************************************************
'****************************************************************************************************************************************
'For debugging...
'        dButton = DoMsgBox("This is windows 95", szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
'****************************************************************************************************************************************
'****************************************************************************************************************************************
        endif
    endif

TestVGA:
    if GetScreenWidth () < 640 or GetScreenHeight () < 480 then
        TestVGADlgLoop:
            szButton = UIStartDlg (CUIDLL_FILENAME, DLG_BADVGA, "FInfoDlgProc", DLG_AWFULMACHINE, PROC_HELP)
            select case szButton
            case "REACTIVATE"
                goto TestVGADlgLoop
            case "BACK"
                UIPop 1
                TestSystem = NAV_BACK
                goto back
            case "CONTINUE"
                TestSystem = NAV_FORWARD
                UIPop 1
                goto TestMouse
            case "EXIT" , "CANCEL"
                AskQuit
                goto TestVGADlgLoop
            end select
        end if

TestMouse:
    if HasMouseInstalled() = false then
    TestMouseDlgLoop:
        szButton = UIStartDlg (CUIDLL_FILENAME, DLG_NOMOUSE, "FInfoDlgProc", DLG_AWFULMACHINE, PROC_HELP)
        select case szButton
        case "REACTIVATE"
            goto TestMouseDlgLoop
        case "BACK"
            UIPop 1
            TestSystem = NAV_BACK
        case "CONTINUE"
            TestSystem = NAV_FORWARD
            UIPop 1
            goto TestColour
        case "EXIT" , "CANCEL"
            AskQuit
            goto TestMouseDlgLoop
        end select
    end if

TestColour:
    if FIs256Colour() < 8 then  ' The 8 refers to the number of Bits per pixel...
    TestColourDlgLoop:
        szButton = UIStartDlg (CUIDLL_FILENAME, DLG_NOT256, "FInfoDlgProc", DLG_POORMACHINE, PROC_HELP)
        select case szButton
        case "REACTIVATE"
            goto TestColourDlgLoop
        case "BACK"
            UIPop 1
            TestSystem = NAV_BACK
            goto back
        case "CONTINUE"
            UIPop 1
            TestSystem = NAV_FORWARD
        case "EXIT" , "CANCEL"
            AskQuit
            goto TestColourDlgLoop
        end select
    end if

back:
End Function


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'**
'** Purpose:
'**     Appends a file name to the end of a directory path,
'**     inserting a backslash character as needed.
'** Arguments:
'**     szDir$  - full directory path (with optional ending "\")
'**     szFile$ - filename to append to directory
'** Returns:
'**     Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
    IF szDir$ = "" THEN
        MakePath = szFile$
    ELSEIF szFile$ = "" THEN
        MakePath = szDir$
    ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
        MakePath = szDir$ + szFile$
    ELSE
        MakePath = szDir$ + "\" + szFile$
    END IF
END FUNCTION



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function HandleRestart() STATIC AS INTEGER
    ' Check there are system files to install AND check if Windows v3.1 or greater
    if RestartListEmpty = 0 and GetWindowsMajorVersion >= 3 and GetWindowsMajorVersion >= 1 then
        dButton = DoMsgBox(STR_EXIT, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
        tryagain:
        if ExitExecRestart = 1 then
            ' Exit failed
            dButton = DoMsgBox(STR_EXITFAIL, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONSTOP)
            goto tryagain
        end if
    end if

    HandleRestart = 1

    if RestartListEmpty = 1 then ' Empty, but we have to reboot
        dummy% = ExitWindowsExec(MakePath(szDestPath, "_msrstrt.exe"), "")
        if dummy% = 0 then
            HandleRestart = 0
        end if
    end if

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Sub UpdateProgramManager(prodName$, appExeFile$, appPengeFile$, readmeFile$, readmeStr$, onCDROM%) STATIC
'Dim szReadmeTitle As String
'Dim szInf As String
'
'    if onCDROM% = 1 then    'sampler
'        CreateProgmanGroup STR_COMPANYNAME, "", cmoNone
'        ShowProgmanGroup   STR_COMPANYNAME, 1, cmoNone
'        szReadmeTitle = prodName$ + " " + readmeStr$
'
'        szInf = MakePath( mid$(szSrcSetupPath, 1, (len(szSrcSetupPath) - len(SOURCE_SETUP_SUBDIR))-1), appExeFile$)
'        CreateProgmanItem STR_COMPANYNAME, prodName$, szInf, MakePath(szDestPath, "sampler.ico"), cmoOverwrite
''        CreateProgmanItem STR_COMPANYNAME, szReadmeTitle, "notepad.exe " + MakePath( mid$(szSrcSetupPath, 1, (len(szSrcSetupPath) - len(SOURCE_SETUP_SUBDIR))-1), readmeFile$), "", cmoOverwrite
'    else
'        if szAddPMItem = "ON" then
'            CreateProgmanGroup STR_COMPANYNAME, "", cmoNone
'            ShowProgmanGroup   STR_COMPANYNAME, 1, cmoNone
'            szReadmeTitle = prodName$ + " " + readmeStr$
'            if szMinimalInstall = "ON" then
'                szInf = MakePath(szSrcBinPath, appExeFile$) + " " + MakePath(szSrcBinPath, appPengeFile$)
'                CreateProgmanItem STR_COMPANYNAME, prodName$, szInf, szInf, cmoOverwrite
'                CreateProgmanItem STR_COMPANYNAME, szReadmeTitle, "notepad.exe " + MakePath(szSrcBinPath, readmeFile$), "", cmoOverwrite
'            else
'                szInf = MakePath(szDestPath, appExeFile$) + " " + MakePath(szDestPath, appPengeFile$)
'                CreateProgmanItem STR_COMPANYNAME, prodName$, szInf, szInf, cmoOverwrite
'                CreateProgmanItem STR_COMPANYNAME, szReadmeTitle, "notepad.exe " + MakePath(szDestPath, readmeFile$), "", cmoOverwrite
'            end if
'        end if
'    end if
'
'End Sub


''''''''''''''''''''''''''''''''''''''''''''

'' Alternative function for french stowaway
'' Readme icon has shortened name
'Sub UpdateProgramManagerAlt(prodName$, readmeName$, appExeFile$, appPengeFile$, readmeFile$, readmeStr$, onCDROM%) STATIC
'Dim szReadmeTitle As String
'Dim szInf As String
'
'    if onCDROM% = 1 then    'sampler
'        CreateProgmanGroup STR_COMPANYNAME, "", cmoNone
'        ShowProgmanGroup   STR_COMPANYNAME, 1, cmoNone
'        szReadmeTitle = readmeName$ + " " + readmeStr$
'
'        szInf = MakePath( mid$(szSrcSetupPath, 1, (len(szSrcSetupPath) - len(SOURCE_SETUP_SUBDIR))-1), appExeFile$)
'        CreateProgmanItem STR_COMPANYNAME, prodName$, szInf, MakePath(szDestPath, "sampler.ico"), cmoOverwrite
''        CreateProgmanItem STR_COMPANYNAME, szReadmeTitle, "notepad.exe " + MakePath( mid$(szSrcSetupPath, 1, (len(szSrcSetupPath) - len(SOURCE_SETUP_SUBDIR))-1), readmeFile$), "", cmoOverwrite
'   else
'        if szAddPMItem = "ON" then
'            CreateProgmanGroup STR_COMPANYNAME, "", cmoNone
'            ShowProgmanGroup   STR_COMPANYNAME, 1, cmoNone
'            szReadmeTitle = readmeName$ + " " + readmeStr$
'            if szMinimalInstall = "ON" then
'                szInf = MakePath(szSrcBinPath, appExeFile$) + " " + MakePath(szSrcBinPath, appPengeFile$)
'                CreateProgmanItem STR_COMPANYNAME, prodName$, szInf, szInf, cmoOverwrite
'                CreateProgmanItem STR_COMPANYNAME, szReadmeTitle, "notepad.exe " + MakePath(szSrcBinPath, readmeFile$), "", cmoOverwrite
'            else
'                szInf = MakePath(szDestPath, appExeFile$) + " " + MakePath(szDestPath, appPengeFile$)
'                CreateProgmanItem STR_COMPANYNAME, prodName$, szInf, szInf, cmoOverwrite
'                CreateProgmanItem STR_COMPANYNAME, szReadmeTitle, "notepad.exe " + MakePath(szDestPath, readmeFile$), "", cmoOverwrite
'            end if
'        end if
'    end if
'
'End Sub



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetDiskSpaceNeeded( drive% ) STATIC As Long
Dim dDummy As Long

    cursor% = ShowWaitCursor()

    SetSymbolValue "ExtraSpace", ""
    SetSymbolValue "Needed", ""
    SetSymbolValue "Cost", ""

    'Drives A - Z
    for i% = 1 to 26
        AddListItem "ExtraSpace", ""
    next i%

    ReplaceListItem "ExtraSpace", dWinDrive, str$(MINIMUM_DISK_SPACE)    '2K for the INI file

    dDummy = GetCopyListCost("ExtraSpace","Needed","Cost")

    GetDiskSpaceNeeded = val(GetListItem ("Needed", drive))

    RemoveSymbol "Needed"
    RemoveSymbol "Cost"
    RemoveSymbol "ExtraSpace"

    RestoreCursor(cursor%)
End Function



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub UpdateIndeoAVIDrivers() STATIC
Dim szWMDriver As String
Dim szACMDriver As String


    ' Dont update VFW on Win 95. It is already there.
    IF OS_Windows95 = 0 then

        szWMDriver = GetIniKeyString(MakePath(szWinPath,"system.ini"), "drivers", "WaveMapper")

        if not(szWMDriver = "msacm.drv") then
            fSystemUpdated = 1
        end if


        if VflatdPresent() = 0 then
            CreateSysIniKeyValue szWinPath + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
            fSystemUpdated = 1
        end if
        CreateIniKeyValue szWinPath + "system.ini", "Drivers", "VIDC.IV32", "ir32.dll", cmoOverwrite
        CreateIniKeyValue szWinPath + "system.ini", "Drivers", "VIDC.IV31", "ir32.dll", cmoOverwrite
        CreateIniKeyValue szWinPath + "system.ini", "Drivers", "VIDC.RT21", "ir21.dll", cmoOverwrite
        CreateIniKeyValue szWinPath + "system.ini", "Drivers", "VIDC.YVU9", "iyvu9.dll", cmoOverwrite
        CreateIniKeyValue szWinPath + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
        CreateIniKeyValue szWinPath + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
        CreateIniKeyValue szWinPath + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
        CreateIniKeyValue szWinPath + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
        CreateIniKeyValue szWinPath + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
        CreateIniKeyValue szWinPath + "control.ini", "drivers.desc", "ir21.dll", "Intel Indeo(TM) Video R2.1", cmoOverwrite

    END IF

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub UpdateWinGDrivers() STATIC
Dim szDest As String
Dim szDest1 As String
Dim szDest2 As String

    ' only use DVA on Windows 3.x
    if OnWin3x() = 1 then
        AddSectionFilesToCopyList "dva", szSrcBinPath, szWinSysPath
        if VflatdPresent() = 0 then
            ' Taken out the path in the following device=dva.386 system.ini entry
            CreateSysIniKeyValue szWinPath + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
            fSystemUpdated = 1
        end if
    end if

    szDest = GetRealWindowsSysDir
    szDest1 = MakePath(szDest,"wing32.dll")
    szDest2 = MakePath(szDest,"wing32.xxx")
    RenameFilePlease szDest1, szDest2

    UpdateWinG32 GetRealWindowsSysDir()
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''

FUNCTION GetRealWindowsSysDir STATIC AS STRING
    szBuf$ = string$(260, 32)
    cbBuf% = GetRealSystemDir(szBuf$, 260)
    IF cbBuf% = 0 THEN
        ERROR STFERR
    ELSE
        IF cbBuf% > 259 THEN
            res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
            ERROR STFERR
        END IF
        szBuf$ = RTRIM$(szBuf$)
        IF MID$(szBuf$, 1, 1) = "\" THEN
            szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
        ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
            szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
        END IF
        IF MID$(szBuf$, LEN(szBuf$), 1) <> "\" THEN
            szBuf$ = szBuf$ + "\"
        END IF
        GetRealWindowsSysDir = szBuf$
    END IF

    szBuf$ = ""
END FUNCTION

'''''''''''''''''''''''''''''''''''''''''''''''''

SUB UpdateWinG32 (szOrig$) STATIC
    '
    ' Here we check the version ourselves of wing32.dll, since
    ' we can't get version checking for Win32 apps from Win16
    '
    FileNew$ = MakePath(szOrig$, "wing32.dll")
    FileOrig$ = MakePath(szOrig$, "wing32.xxx")
    IF IsWin32FileNewer( FileOrig$, FileNew$ ) THEN
    RemoveFile FileOrig$, cmoForce
    ELSE
        RemoveFile FileNew$, cmoForce       ' get rid of new file
    RenameFilePlease FileOrig$,FileNew$ ' put back old file
    END IF
END SUB

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function UpdateADPCMDrivers() STATIC As Integer
Dim szWMDriver As String
Dim szACMDriver As String
Dim fUpdate As Integer

    '   Dont update ADPCM on Win 95. It is already there.
    If OS_Windows95 = 0 then

    ' Check WaveMapper driver
    szWMDriver = GetIniKeyString(MakePath(szWinPath,"system.ini"), "drivers", "WaveMapper")
    szACMDriver = GetIniKeyString (MakePath(szWinPath, "system.ini"), "MSACM", "Install")

    if not(szWMDriver = "msacm.drv") then
    ' Isn't installed so...

        ' If NO ADPCM drivers are installed so...
        if (szWMDriver = "") then
            ' Display a dialog saying "there are no ADPCM drivers on your system..."
            fUpdate = 1
        else
            ' There is a different adpcm driver in there so warn about compatibility
        loop1:
            szButton = UIStartDlg(CUIDLL_FILENAME, DLG_URKADPCM, "FInfoDlgProc", DLG_ADPCMHELP, PROC_HELP)
            select case szButton
            case "REACTIVATE"
                goto loop1
            case "EXIT" , "CANCEL"
                AskQuit
                goto loop1
            case "CONTINUE"     ' YES
                UpdateADPCMDrivers = NAV_FORWARD
                UIPop 1
                fUpdate = 1
'            case "CANCEL"       ' NO
'                UIPop 1
'                fUpdate = 0
            case "BACK"
                UIPop 1
                UpdateADPCMDrivers = NAV_BACK
                goto back
            end select
        end if


        if fUpdate = 1 then
            CreateIniKeyValue szWinPath + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
            CreateIniKeyValue szWinPath + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
            CreateIniKeyValue szWinPath + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
            CreateIniKeyValue szWinPath + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
            CreateIniKeyValue szWinPath + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
            CreateIniKeyValue szWinPath + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite

            szMsacmPriority1 = GetIniKeyString(szWinPath + "MSACM.INI","PRIORITY","PRIORITY1")
            szMsacmPriority2 = GetIniKeyString(szWinPath + "MSACM.INI","PRIORITY","PRIORITY2")
            szMsacmPriority3 = GetIniKeyString(szWinPath + "MSACM.INI","PRIORITY","PRIORITY3")

            if mid$( szMsacmPriority1, 1, 1 ) = "0" then
                szMsacmPriority1 = "1" + mid$( szMsacmPriority1, 2, len(szMsacmPriority1)-1 )
                CreateIniKeyValue szWinPath + "msacm.ini", "PRIORITY", "PRIORITY1", szMsacmPriority1, cmoOverwrite
            endif

            if mid$( szMsacmPriority2, 1, 1 ) = "0" then
                szMsacmPriority2 = "1" + mid$( szMsacmPriority2, 2, len(szMsacmPriority2)-1 )
                CreateIniKeyValue szWinPath + "msacm.ini", "PRIORITY", "PRIORITY2", szMsacmPriority2, cmoOverwrite
            endif

            if mid$( szMsacmPriority3, 1, 1 ) = "0" then
                szMsacmPriority3 = "1" + mid$( szMsacmPriority3, 2, len(szMsacmPriority3)-1 )
                CreateIniKeyValue szWinPath + "msacm.ini", "PRIORITY", "PRIORITY3", szMsacmPriority3, cmoOverwrite
            endif

            fSystemUpdated = 1
        else
        noSysSoftware:
            ' No install warning
            szButton = UIStartDlg(CUIDLL_FILENAME, DLG_NOSYSSOFT, "FInfoDlgProc", 0, "")
            select case szButton
            case "REACTIVATE"
                goto noSysSoftware
            case "EXIT" , "CANCEL"
                AskQuit
                goto noSysSoftware
            case "CONTINUE"
                UIPop 1
            case "BACK"
                UIPop 1
                goto loop1
            end select
        end if

    end if
back:
    END IF
End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function InstallQTW() STATIC As Integer

begin:
    szButton = UIStartDlg( CUIDLL_FILENAME, DLG_INSTALLQTW, "FInfoDlgProc", 0, "" )
    select case szButton
    case "REACTIVATE"
        goto begin
    case "CONTINUE" ' Yes Install QTW
        '
        'Put in the New Dialogue here... (If you do not know what you are doing then can you please do as we say!!!)
        dButton = DoMsgBox(STR_QTWMSG1+STR_QTWMSG2+STR_QTWMSG3, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
        '
        IF OS_Windows95 = 1 then
            ' Install the 32 bit version on Windows 95
'***************************************************************************************************************************************
            'Enter the code to disable the lip sync thing... 32 bit...
            CreateIniKeyValue szWinPath + "Qtw.ini", "Sound 32", "DisableAutoRateAdjust", "1", cmoOverwrite
'***************************************************************************************************************************************
'            Run ( MakePath( szSrcBinPath, "qt32inst.exe" ) )
            Run MakePath( szSrcBinPath, "qt32inst.exe" ),NOWAIT
            ' Get the handle of the QTW installer
            hwndApple = GetActiveWindow
'str=Str(hwndApple)
            hwndApple = GetParent(hwndApple)
            ' While this handle is still valid make it the active window... If not then continue installation
            i = SetWindowPos(hwndApple, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE+SWP_NOMOVE)
            ' Wait for QTW Install to Finish.
            WHILE i = 1
                i = SetWindowPos(hwndApple, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE+SWP_NOMOVE)
            WEND
        Else
            ' Else Install the 16 bit version
'***************************************************************************************************************************************
            'Enter the code to disable the lip sync thing... 16 bit...
            CreateIniKeyValue szWinPath + "Qtw.ini", "Sound", "DisableAutoRateAdjust", "1", cmoOverwrite
'***************************************************************************************************************************************
'            Run ( MakePath( szSrcBinPath, "qt16inst.exe" ) )
' Display the QTW program until it has finished...
            Run MakePath( szSrcBinPath, "qt16inst.exe" ),NOWAIT
            ' Get the handle of the QTW installer
            hwndApple = GetActiveWindow
            ' Loop until the top most window is found
            btest = hwndApple
            WHILE not btest = 0
                hwndApple = btest
                btest = GetParent(hwndApple)
            WEND

            ' While this handle is still valid make it the active window... If not then continue installation
            ' Wait for QTW Install to Finish.
            i=IsWindow(hwndApple)
            btest=1
            WHILE not i = 0
                 ' Could not fins a function that would work properly!!!
                 i = IsWindow(hwndApple)
            WEND
        END IF

        UIPop 1
        InstallQTW = NAV_FORWARD

    case "BACK"     ' No Don't Install QTW
        UIPop 1
        InstallQTW = NAV_BACK
    case "EXIT" , "CANCEL"
        AskQuit
        goto begin
    end select

End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''